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10 

, OPT LIST 



20 5 ? 

natinunnanannnttttn 

J J M < J j J J S H S J J 

^^ 3333333333333:1 


30 5 

QUICK 

MENU --Final 


40 5 

REV 3 „ 2 

(1984) 


50 5 

by Carlo 

s Reyes 


60 3 

70 ; ' 

ttnaauun^ttnunnntttt 

3 ? 9 ? 3 I* 3 ? ? ? ? P ? f* ? ? 

cnaoii^HUBUtiauttatt 

3333333333 3 3 333? 


80 ;ZERO PAGE VARIABLES 


90 5 



=0043 

0100 

WORD = $43 

3 STARTING ADDR OF BLOCK BEING READ 

=0043 

0110 

COUNT = $43 

3 # OF ENTRIES IN DIRECTORY 

=0045 

0120 

WORD! = $45 

3 ENDING ADDR 

=0047 

0130 

NXTSECT = $47 

3 NEXT SECTOR TO BE READ FROM FILE 

=0049 

0140 

XSAVE = $49 

5 TEMP STORAGE FOR X REG 


0150 

» 



0160 

5 OS EQUATES 



01 "70 

3 


=0006 

0180 

TRAMSZ = 6 


=0009 

0190 

BOOT? = 9 


=0012 

0200 

RTCLOK = $12 


=002A 

0210 

ICAX1Z = $2A 


=002B 

0220 

ICAX2Z = $2B 


=0058 

0230 

SAVMSC = 88 


=0244 

0240 

COLDST = $0244 


=02E0 

0250 

RUNAD = $02E0 


=02E2 

0260 

INITAD = $02E2 


=0301 

0270 

DUNIT = $0301 


=0302 

0280 

DCOMND = $0302 


=0303 

0290 

DSTATS = $0303 


—0304 

0300 

DBUFLO = $0304 


=0305 

0310 

DBUFHI = $0305 


=030A 

0320 

DAUX1 = $030A 


=030B 

0330 

DAUX2 = $030B 


=03F8 

0340 

BASICFLG = $03F8 

3 (??) TELLS THE OS TO SWITCH OUT BASIC 


0350 

5 •S'NOTEs THIS IS 

ONLY VALID ON THE NEW XL SERIES 


0360 

n 


=E400 

0370 

VECTORS = $E400 


=E453 

0380 

DSKINV = $E453 


=E459 

0390 

SIOV = $E459 


=E474 

0400 

WARMSV = $E474 



0410 

« 

f! 



0420 

; BINARY HEADER 



0430 

3 


0000 

0440 

*= $0700 



0450 

3 


0700 

0460 

START 


0700 0003 

0470 

» BYTE 0,3 


0702 0007 

0480 

.WORD START, 

INIT 

0704 0607 

0490 

n 

? 



0500 

5 INIT THE MENU 



0510 

3 


0706 

0520 

INIT 


0706 A001 

0530 

L.DY #1 


0708 8409 

0540 

STY BOOT? 

3 DISK BOOTED OK 

070A SC0103 

0550 

STY DUN IT 

3 DRIVE #7 

070D 842B 

0560 

STY ICAX2Z 

3 GR „ t 

070F 8C0B03 

0570 

STY DAUX2 

3 ($769) 

0712 8CF803 

0580 

STY BASICFLG 

3 SWITCH OUT BASIC ON THE NEXT WARM START 


0590 


• 

0715 88 

0600 

DEY 
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0716 

8C4402 

0610 

STY 

COLDST 5 Y=0 




0620 

5 


0719 

A90C 

0630 

LDA 

#$0C 


07 IB 

852A 

0640 

ST A 

ICAX1Z 




0650 

» 

n 



071D 

A210 

0660 

LDX 

#$10 sOPEN # 6 ,12,1,"Ss“ or 

GR.1+16 

07 IF 

203808 

0670 

JSR 

USEVECT 




0680 




0722 

A559 

0690 

LDA 

SAVMSC+1 5 GET ADDR OF DLIST 


0724 

8DAD07 

0700 

STA 

DLPTR+2 




0710 




0727 

A968 

0720 

LDA 

# <361-1 


0729 

8D0A03 

0730 

STA 

DALJX1 




0740 

» 

3 



072C 

A506 

0750 

LDA 

TRAMSZ ;SHOW IF CARTRIDGE IS 

PRESENT 

072E 

F004 

0760 

BEQ 

LOOP 


0730 

A94A 

0770 

LDA 

#10+64 ? 


0732 

9158 

0780 

STA 

(SAVMSC) , Y 5 Y =1 




0790 

« 

n 





0800 

;LOOP! READ THE DIRECTORY 




0810 

n 



0734 


0820 

LOOP 



0734 

A952 

0830 

LDA 

# ' R 


0736 

A208 

0840 

LDX 

# >BUFFER 


0738 

A0B0 

0850 

LDY 

# <BUFFER 




0860 

it 

? 



073A 

202608 

0870 

JSR 

CALLDSK 


073D 

A200 

0880 

LDX 

#0 




0890 






0900 

5 LOOPIs 

PROCESS NEXT ENTRY 




0910 




073F 


0920 

LOOP 1 



073F 

BDB008 

0930 

LDA 

BUFFER,X sTEST FLAG BYTE 


0742 

F048 

0940 

BEQ 

WAIT sNEVER USED 




0950 




0744 

303C 

0960 

BMI 

NEXT s DELETED 


0746 

4 A 

0970 

LSR 

A 


0747 

B039 

0980 

BOS 

NEXT s OPEN FOR OUTPUT 




0990 

It 





1000 

;FOUND A GOOD ENTRY 




1010 




0749 

A443 

1020 

LDY 

COUNT s SAVE THE STARTING ADDR FOR LATER 

074B 

BDB30S 

1030 

LDA 

BUFFER+3,X 


074E 

998008 

1040 

STA 

SECTL..0 , Y 


0751 

BDB408 

1050 

LDA 

BUFFER~i~4 n X 


0754 

999808 

1060 

STA 

SECTHI,Y 




1070 

a 

3 



0757 

98 

1080 

TYA 

SPRINT THE LETTER FOR 

THE ENTRY 

0758 

69A1 

1090 

ADC 

#33+128 sADD THE OFFSET (C=0) 


075A 

A003 

1100 

LDY 

#3 


075C 

9158 

1110 

STA 

(SAVMSC),Y 




1120 

3 



075E 

C 8 

1130 

I NY 





1140 






1150 

;L00P2s 

MOVE FILENAME TO SCREEN 




1160 

$ 



075F 


1170 

L00P2 



075F 

C 8 

1180 

I NY 



0760 

E 8 

1190 

I NX 



0761 

BBB408 

1200 

L.D A 

BUFFER+5--1 , X 


0764 

E91F 

1210 

SBC 

#32-1 5 (C=0) 
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0766 

9158 

1220 


STA (SAVMSC) „ Y 

0768 

C00F 

1230 


CPY #5+11-1 

076A 

90F3 

1240 


BOO L00P2 



1250 

3 


076C 

A558 

1260 


L.DA SAVMSC 

076E 

6913 

1270 


ADC #20-1 5 CARRY IS SET FROM CPY 

0770 

8558 

1280 


STA SAVMSC 

0772 

9002 

1290 


BOO SKIP 

0774 

E659 

1300 


INC SAVMSC+1 



1310 

n 

*1 


0776 


1320 

s 

IK IP 

0776 

E643 

1330 


INC COUNT 

0778 

A543 

1340 


LDA COUNT 

077A 

0918 

1350 


CMP #24 5 GOT 24 ENTRIES ALREADY? 

077C 

F00E 

1360 


BEQ WAIT 5 YES, EXIT 



1370 

3 


077E 

8 A 

1380 


TXA 3 EQUALIZE X REG 

077F 

69F5 

1390 


ADC #-1.1 3 CARRY IS CLEARED FROM 'CMP #24' 

0781 

AA 

1400 


TAX 



1410 

3 




1420 

n 

3 

NEXTs POINT TO NEXT ENTRY IN DIRECTORY SECTOR 



1430 

a 

H 


0782 


1440 

NEXT 

0782 

8 A 

1450 


TXA 

0783 

18 

1460 


CLC 

0784 

6910 

1470 


ADC #16 

0786 

AA 

1480 


TAX 



1490 

3 


0787 

0A 

1500 


ASL A § AT . END OF SECTOR? 

0788 

90B5 

1510 


BCC LOOP1 sNO, GET NEXT ENTRY 

078A 

B0A8 

1520 

1 IT* T fS 


BCS LOOP 3 YES, GET NEXT DIR SECTOR 



i J vu 

1540 

3 

n 

WAIT; GET KEY FROM USER 



1550 

a 

3 


0780 


1560 

WAIT 

0780 

A224 

1570 


LDX #$20+4 

078E 

203808 

1580 


JSR USEVECT 



1590 

3 


0791 

09 IB 

1600 


CMP #27 ", ESCAPE KEY? 

0793 

F075 

1610 


BEQ COPYIT 3 YES, COPY MENU 



1620 

a 

3 


0795 

E941 

.1630 


SBC #'A 3 IF KEY>27 THEN C=1, SO WE DON'T SET IT 

0797 

0543 

1640 


CMP COUNT 

0799 

B0F1 

1650 


BCS WAIT 



1660 

3 




1670 

3 

PREPARE TO LOAD IN THE FILE 



1680 

a 

3 


079B 

AA 

1690 


TAX 

0790 

BD8008 

1700 


LDA SECTLO,X 3 GET STARTING ADDR FROM TABLES 

079F 

8547 

1710 


STA NXTSECT 

07 A1 

BD9808 

1720 


LDA SECTHI,X 

07A4 

8548 

1730 


STA NXTSECT+1 



1740 

3 


07A6 

8 A 

1750 


TXA 

07A7 

F002 

1760 


BEQ DLPTR 3 HANDLE LMS PROBLEM 

07A9 

E8 

1770 


INX 

07AA 

E8 

1780 


I NX 

07AB 


1790 

DLPTR 

07AB 

FE63BD 

1800 


INC $BD60+3,X 



1810 



07AE 

205008 

1820 


JSR CALLS10 
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1830 

IS 

s 


07B1 

CA 

1840 

DEX 




1850 



0782 

2DB108 

I860 

AND 

BUFFER +1 ;IS THIS A BINARY LOADABLE FILE? 

07B5 

C9FF 

1870 

CMP 

ttTFF 

07B7 

D06A 

1880 

BNE 

REBOOT sNO, RUN THE MENU AGAIN 



1890 

0 

3 


07B9 

A514 

1900 

L.DA 

RTCLOK+2 ;WAIT FOR VBLANK TO POINT TO THE SCREEN 

07BB 


1910 

LOOPS 


07BB 

C514 

1920 

CMP 

RTCLOK+2 

07BB 

F0FC 

1930 

BEQ 

LOOPS 



1940 

n 

*1 




1950 

r, DO THE 

ACTUAL BINARY LOAD 



1980 

<1 

*t 


07BF 


1970 

PUTNXT 


07BF 

204108 

1980 

JSR 

6 ETBYTE sGET THE STARTING ADDR FOR THE BLOCK 

07C2 

8543 

1990 

STA 

WORD 

07C4 

204108 

2000 

JSR 

GETBYTE 

07C7 

8544 

2010 

STA 

WORD +1 

07C9 

2543 

2020 

AND 

WORD 

07CB 

C9FF 

2030 

CMP 

#$ff 

07CD 

F0F0 

2040 

BEQ 

PUTNXT 



2050 

ft 

H 


07CF 

204108 

2060 

JSR 

GETBYTE 5 GET THE ENDING ADDRESS 

07D2 

8545 

2070 

STA 

W0RD1 

07D4 

204108 

2080 

JSR 

GETBYTE 

07D7 

8548 

2090 

STA 

WORD1+1 



2100 

u 

? 




2110 

5 READ A 

BLOCK OF DATA 



2120 

n 


07D9 


2130 

RDBLK 


07D9 

204108 

2140 

JSR 

GETBYTE 

07DC 

9143 

2150 

STA 

(WORD),Y 



2160 

is 

n 


07DE 

E643 

2170 

INC 

WORD 

07E0 

D002 

2180 

BNE 

SKI PI 

07E2 

E644 

2190 

INC 

WORD+1 



2200 

ft 

? 


07E4 


2210 

SKIP1 


07E4 

A545 

2220 

LDA 

WORD 1 

07E6 

0543 

'?'?30 

CMP 

WORD 

07E8 

A546 

2240 

LDA 

WORD1+1 , 

07EA 

E544 

2250 

SBC 

WORD+1 

07EC 

B0EB 

2260 

BCS 

RDBLK 5 GO BACK IF < = 



2270 



07EE 

ADE202 

2280 

LDA 

INITAD 

07F1 

0DE302 

2290 

ORA 

INITAD+1 

07F4 

F0C9 

2300 

BEQ 

PUTNXT 



2310 





2320 

;INIT THE PROGRAM 



2330 

3 


07F6 

8849 

2340 

STX 

XSAVE 

07FS 

200708 

2350 

JSR 

80INIT 

07FB 

A849 

2360 

't: ■“/ 

LDX 

XSAVE 

07FD 

A000 

/ SO 

2380 

LDY 

#0 sCLEAR Y REG 

07FF 

8CE202 

2390 

STY 

INITAD 

0802 

8CE302 

2400 

STY 

INITAD+1 

0805 

F0B8 

2410 

BEQ 

PUTNXT jFORCED BRANCH 



2420 

» 


0807 


2430 

GO I NIT 






RASE 5 


0807 

8CE202 

2440 

JMP (INITAD) 



2450 

3 



2460 

; WRITE THE MENU TO THE DISK 



2470 

*1 

080A 


2480 

COPYIT 

080A 

88 

2490 

DEY 

080B 

8C0A03 

2500 

STY DALIXI ?Y=0 

080E 

8C0B03 

2510 

STY DAUX2 

0811 

A957 

2520 

LDA #'W 

0813 

A207 

2530 

LDX #7 

0815 

202808 

2540 

JSR CALLDSK 



2550 

a 

n 

0818 

A080 

2560 

l_DY #$80 

081A 

202C08 

2570 

JSR CALLDSK2 



2580 

tl 

f! 

08 ID 

A208 

2590 

LDX #8 

08 IF 

88 

2600 

DEY 

0820 

202908 

2610 

JSR CALLDSK1 



2620 

* 

3 

0823 


2630 

REBOOT 

0823 

4C74E4 

2640 

JMP WARMSV 



2650 

» 

3 



2660 

5 CALL THE RESIDENT DISK INTERFACE 



2670 

tl 

fl 

0828 


2680 

CALLDSK 

0828 

8D0203 

2690 

STA DCOMND 

0829 


2700 

CALLDSK1 

0829 

8E0503 

2710 

STX DBUFHI 

082C 


2720 

CALLDSK2 

082C 

8C0403 

2730 

STY DBUFLO 



2740 

« 

082F 

EE0A03 

2750 

INC DAUX1 



2760 

a 

? 

0832 


2770 

AGAIN 

0832 

2053E4 

2780 

JSR DSKINV 

0835 

30FB 

2790 

BMI AGAIN 

0837 

60 

2800 

RTS 



2810 

8 



2820 

5 USE THE RESIDENT HANDLERS 



2830 

n 

n 

0838 


2840 

USEVECT 

0838 

BD01E4 

2850 

LDA VECTORS+1,X 

083B 

48 

2860 

PH A 

083C 

BD00E4 

2870 

LDA VECTORS,X 

083F 

48 

2880 

PHA 

0840 

60 

2890 

RTS 



2900 

n 



2910 

5 GET THE NEXT BYTE FROM THE FILE 



2920 

8 

0841 


2930 

6 ETBYTE 

0841 

E07D 

2940 

CPX #$7D 5 (# OF DATA BYTES 

0843 

F005 

2950 

BEQ GETSECT 



2960 

a 

? 

0845 


2970 

GIVEBYTE 

0845 

BDB008 

2980 

LDA BUFFER,X 

0848 

E 8 

2990 

I NX 

0849 

60 

3000 

RTS 



3010 

8 

n 

084A 


3020 

GETSECT 

084A 

A547 

3030 

LDA NXTSECT § AT THE EOF? 

084C 

0548 

3040 

ORA NXTSECT+1 
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084E 

F02B 

3050 

BEQ DOME ;YES, RUM THE PROGRAM 



3060 

a 

9 



3070 

5 GET THE NEXT DATA SECTOR 



3080 


0850 


3090 

CALLS10 

0850 

A940 

3100 

LDA #$40 

0852 

8D0303 

3110 

STA DSTATS 



3120 


0855 

A547 

3130 

LDA NXTSECT 

0857 

SD0A03 

3140 

STA DAUX1 

0B5A 

A548 

3150 

LDA NXTSECT+1 

085C 

8D0B03 

3160 

STA DAUX2 



3170 

? 

085F 

2059E4 

3180 

3SR Slav 

0862 

30EC 

3190 

BMI CALLSIO ;IF ERROR, TRY AGAIN 



3200 

s 



3210 

5 PROCESS THE LINK 





0864 

AD2D09 

3230 

LDA BUFFER-!-125 

0867 

2903 

3240 

AND #3 

0869 

8548 

3250 

STA NXTSECT-i-1 



3260 

IS 

9 

086B 

AD2E09 

3270 

LDA BOFFER+126 

086E 

8547 

3280 

STA NXTSECT 



3290 

tt 

9 

0870 

AD2F09 

3300 

LDA BUFFER-i-127 

0873 

•2<^7P 

3310 

AND #$7F 

0875 

8D4208 

3320 

STA GETBYTE+1 



3330 

n 

9 

0878 

A200 

3340 

LDX #0 

087A 

88 

3350 

DEY 



3360 

tt 

H 

087B 

F0C8 

3370 

BEQ GIVEBYTE 5 FORCED BRANCH 



3380 

tt 

H 



3390 

5 RUN THE PROGRAM 



3400 


0S7D 


3410 

DONE 

087D 

6CE002 

3420 

JMP (RUNAD) 



3430 

0 

9 



3440 

5 STARTING SECTOR. TABLES 



3450 

tt 

fl 

0880 


3460 

SECTLO *= *+24 

0898 


3470 

SECTHI *= *+24 



3480 

a 

? 



3490 

", SECTOR BUFFER 



3500 

B 

Jl 

08B0 


3510 

BUFFER *= *+128 
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- 

3520 

«OPT LIST 


OPT LIST 
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SYMBOLS 


0832 AGAIN 

=03F8 BA8ICFLG 

=0009 BOOT? 

0BB8 BUFFER 

0826 CALLDSK 

082? CALLDSO 

082C CALLDSK2 

8850 CALLSIO 

=0244 COLDST 

080A COPYIT 

=0043 COUNT 

=838A DAUX1 

=030B DAUX2 

=0305 DBUFHI 

=8304 DBUFLO 

=0302 BCONND 

07AB DLPTR 

087D DONE 

=E453 DSKINV 

=0303 DSTATS 

=0301 DUNIT 

0841 8ETBYTE 

084A GETSECT 

8845 GIVEBYTE 

0887 SOINIT 

=802A ICAX1Z 

=882B ICAX2Z 

0706 INIT 

=02E2 INITAD 

8734 LOOP 

073F LOOP1 

875F L0QP2 

07BB LQ0P3 

0782 NEXT 

=0047 NXTSECT 

07BF PUTNXT 

87D9 RBBLK 

8823 REBOOT 

=0012 RTCLOK 

=02E0 RUNAD 

=0058 SAVHSC 

0898 SECTHI 

0880 SECTLO 

=E459 SIOV 

8776 SOP 

07E4 SKIP1 

0700 START 

=0006 TRANSZ 

8838 USEVECT 

=E480 VECTORS 

07SC BAIT 

=E474 HARMS'/ 

=0043 BORD 

=0845 BORD1 

=8049 XSAVE 



